DECLARE t1 CURSOR FOR SELECT NAME, COLNAMES, UNIQUERULE, COLCOUNT FROM SYSIBM.SYSINDEXES WHERE TBNAME = :szTbName AND TBCREATOR = :szCreator AND UNIQUERULE <> 'D'
OPEN t1
FETCH t1 INTO :szName, :szColumns, :szUniqueRule, :iColCount
CLOSE t1
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE t4 CURSOR FOR SELECT NAME, CREATOR FROM SYSIBM.SYSTABLES WHERE CREATOR <> 'SYSIBM' AND CREATOR <> 'QRWSYS'